| From: | Dave Clarke |
| Date: | 24 Sep 2001 at 04:22:14 |
| Subject: | [D5] Re: Buggy "Cycle mode"... |
Once upon a time, 23-Sep-01 18:56:01, Jack York spoke thus about
'[D5] Re: Buggy "Cycle mode"...':
>I have had this happen to me many times it but could not cause it to
>happen on purpose until now. Go to a directory that does not have icons
>for all files. My listers are in name mode by default - don't know if it
>matters which mode you start in. Cycle to Icon mode and then select View
>As->Show All. Try cycling back to name mode. It will advance to Icon
>Action mode but stops there. I'm using script version 0.3, Opus 5.82 and
>OS 3.9. Just letting you know since you had asked.
Here's an update, (it will appear on my WWW site but my ftp access has just
disappeared for a little while so I can't upload it).
-------------------------8<------------------------
/*
$VER: CycleMode.dopus5 0.4 (24.9.01) D.Clarke
Call as:
Key : <Whatever tickles your fancy>
Function : ARexx DOpus5:ARexx/CycleMode.dopus5 {Qp} [showall]
Where: [showall] will cause the Icon and Icon Action modes to show all
files.
Don't set the System-Global hotkey, there's really no point.
*/
options results
parse arg port args .
if left(port,5) ~= 'DOPUS' then exit
address value port
lister query active
if rc ~= 0 then
exit
else
handle = result
if exists('ENV:'strip(handle)'CM') then
args = 'showall'
else
if upper(args) ~= 'SHOWALL' then args = ''
lister query handle mode
cmode = result
pshow = index(upper(cmode),'SHOWALL')
if pshow > 0 then cmode = left(cmode, pshow - 1)
if pshow > 0 & args ~= 'showall' then do
address command 'SetEnv "'strip(handle)||'CM" 1'
args = 'showall'
end
cmode = strip(cmode)
select
when cmode = 'icon action' then 'lister set 'handle' mode name'
when cmode = 'icon' then 'lister set 'handle' mode icon action' args
when cmode = 'name' then 'lister set 'handle' mode icon' args
otherwise nop
end
exit
-------------------------8<------------------------
Dave